getBooleanVector <- callback("getBooleanVector")
if(!is.na(getBooleanVector)){
	stop("getBooleanVector not na!")
}
callback("setBooleanVector",list(getBooleanVector))
getBooleanVectorAsList <- callback("getBooleanVectorAsList")
if(!is.na(getBooleanVectorAsList)){
	stop("getBooleanVectorAsList not na!")
}
callback("setBooleanVectorAsList",list(getBooleanVectorAsList))
getBooleanMatrix <- callback("getBooleanMatrix")
if(!is.na(getBooleanMatrix)){
	stop("getBooleanMatrix not na!")
}
callback("setBooleanMatrix",list(getBooleanMatrix))
getBooleanMatrixAsList <- callback("getBooleanMatrixAsList")
if(!is.na(getBooleanMatrixAsList)){
	stop("getBooleanMatrixAsList not na!")
}
callback("setBooleanMatrixAsList",list(getBooleanMatrixAsList))

getByteVector <- callback("getByteVector")
if(!is.na(getByteVector)){
	stop("getByteVector not na!")
}
callback("setByteVector",list(getByteVector))
getByteVectorAsList <- callback("getByteVectorAsList")
if(!is.na(getByteVectorAsList)){
	stop("getByteVectorAsList not na!")
}
callback("setByteVectorAsList",list(getByteVectorAsList))
getByteMatrix <- callback("getByteMatrix")
if(!is.na(getByteMatrix)){
	stop("getByteMatrix not na!")
}
callback("setByteMatrix",list(getByteMatrix))
getByteMatrixAsList <- callback("getByteMatrixAsList")
if(!is.na(getByteMatrixAsList)){
	stop("getByteMatrixAsList not na!")
}
callback("setByteMatrixAsList",list(getByteMatrixAsList))

getCharacterVector <- callback("getCharacterVector")
if(!is.na(getCharacterVector)){
	stop("getCharacterVector not na!")
}
callback("setCharacterVector",list(getCharacterVector))
getCharacterVectorAsList <- callback("getCharacterVectorAsList")
if(!is.na(getCharacterVectorAsList)){
	stop("getCharacterVectorAsList not na!")
}
callback("setCharacterVectorAsList",list(getCharacterVectorAsList))
getCharacterMatrix <- callback("getCharacterMatrix")
if(!is.na(getCharacterMatrix)){
	stop("getCharacterMatrix not na!")
}
callback("setCharacterMatrix",list(getCharacterMatrix))
getCharacterMatrixAsList <- callback("getCharacterMatrixAsList")
if(!is.na(getCharacterMatrixAsList)){
	stop("getCharacterMatrixAsList not na!")
}
callback("setCharacterMatrixAsList",list(getCharacterMatrixAsList))

getDecimalVector <- callback("getDecimalVector")
if(!is.na(getDecimalVector)){
	stop("getDecimalVector not na!")
}
callback("setDecimalVector",list(getDecimalVector))
getDecimalVectorAsList <- callback("getDecimalVectorAsList")
if(!is.na(getDecimalVectorAsList)){
	stop("getDecimalVectorAsList not na!")
}
callback("setDecimalVectorAsList",list(getDecimalVectorAsList))
getDecimalMatrix <- callback("getDecimalMatrix")
if(!is.na(getDecimalMatrix)){
	stop("getDecimalMatrix not na!")
}
callback("setDecimalMatrix",list(getDecimalMatrix))
getDecimalMatrixAsList <- callback("getDecimalMatrixAsList")
if(!is.na(getDecimalMatrixAsList)){
	stop("getDecimalMatrixAsList not na!")
}
callback("setDecimalMatrixAsList",list(getDecimalMatrixAsList))

getDoubleVector <- callback("getDoubleVector")
if(!is.na(getDoubleVector)){
	stop("getDoubleVector not na!")
}
callback("setDoubleVector",list(getDoubleVector))
getDoubleVectorAsList <- callback("getDoubleVectorAsList")
if(!is.na(getDoubleVectorAsList)){
	stop("getDoubleVectorAsList not na!")
}
callback("setDoubleVectorAsList",list(getDoubleVectorAsList))
getDoubleMatrix <- callback("getDoubleMatrix")
if(!is.na(getDoubleMatrix)){
	stop("getDoubleMatrix not na!")
}
callback("setDoubleMatrix",list(getDoubleMatrix))
getDoubleMatrixAsList <- callback("getDoubleMatrixAsList")
if(!is.na(getDoubleMatrixAsList)){
	stop("getDoubleMatrixAsList not na!")
}
callback("setDoubleMatrixAsList",list(getDoubleMatrixAsList))

getFloatVector <- callback("getFloatVector")
if(!is.na(getFloatVector)){
	stop("getFloatVector not na!")
}
callback("setFloatVector",list(getFloatVector))
getFloatVectorAsList <- callback("getFloatVectorAsList")
if(!is.na(getFloatVectorAsList)){
	stop("getFloatVectorAsList not na!")
}
callback("setFloatVectorAsList",list(getFloatVectorAsList))
getFloatMatrix <- callback("getFloatMatrix")
if(!is.na(getFloatMatrix)){
	stop("getFloatMatrix not na!")
}
callback("setFloatMatrix",list(getFloatMatrix))
getFloatMatrixAsList <- callback("getFloatMatrixAsList")
if(!is.na(getFloatMatrixAsList)){
	stop("getFloatMatrixAsList not na!")
}
callback("setFloatMatrixAsList",list(getFloatMatrixAsList))

getIntegerVector <- callback("getIntegerVector")
if(!is.na(getIntegerVector)){
	stop("getIntegerVector not na!")
}
callback("setIntegerVector",list(getIntegerVector))
getIntegerVectorAsList <- callback("getIntegerVectorAsList")
if(!is.na(getIntegerVectorAsList)){
	stop("getIntegerVectorAsList not na!")
}
callback("setIntegerVectorAsList",list(getIntegerVectorAsList))
getIntegerMatrix <- callback("getIntegerMatrix")
if(!is.na(getIntegerMatrix)){
	stop("getIntegerMatrix not na!")
}
callback("setIntegerMatrix",list(getIntegerMatrix))
getIntegerMatrixAsList <- callback("getIntegerMatrixAsList")
if(!is.na(getIntegerMatrixAsList)){
	stop("getIntegerMatrixAsList not na!")
}
callback("setIntegerMatrixAsList",list(getIntegerMatrixAsList))

getLongVector <- callback("getLongVector")
if(!is.na(getLongVector)){
	stop("getLongVector not na!")
}
callback("setLongVector",list(getLongVector))
getLongVectorAsList <- callback("getLongVectorAsList")
if(!is.na(getLongVectorAsList)){
	stop("getLongVectorAsList not na!")
}
callback("setLongVectorAsList",list(getLongVectorAsList))
getLongMatrix <- callback("getLongMatrix")
if(!is.na(getLongMatrix)){
	stop("getLongMatrix not na!")
}
callback("setLongMatrix",list(getLongMatrix))
getLongMatrixAsList <- callback("getLongMatrixAsList")
if(!is.na(getLongMatrixAsList)){
	stop("getLongMatrixAsList not na!")
}
callback("setLongMatrixAsList",list(getLongMatrixAsList))

getPercentVector <- callback("getPercentVector")
if(!is.na(getPercentVector)){
	stop("getPercentVector not na!")
}
callback("setPercentVector",list(getPercentVector))
getPercentVectorAsList <- callback("getPercentVectorAsList")
if(!is.na(getPercentVectorAsList)){
	stop("getPercentVectorAsList not na!")
}
callback("setPercentVectorAsList",list(getPercentVectorAsList))
getPercentMatrix <- callback("getPercentMatrix")
if(!is.na(getPercentMatrix)){
	stop("getPercentMatrix not na!")
}
callback("setPercentMatrix",list(getPercentMatrix))
getPercentMatrixAsList <- callback("getPercentMatrixAsList")
if(!is.na(getPercentMatrixAsList)){
	stop("getPercentMatrixAsList not na!")
}
callback("setPercentMatrixAsList",list(getPercentMatrixAsList))

getShortVector <- callback("getShortVector")
if(!is.na(getShortVector)){
	stop("getShortVector not na!")
}
callback("setShortVector",list(getShortVector))
getShortVectorAsList <- callback("getShortVectorAsList")
if(!is.na(getShortVectorAsList)){
	stop("getShortVectorAsList not na!")
}
callback("setShortVectorAsList",list(getShortVectorAsList))
getShortMatrix <- callback("getShortMatrix")
if(!is.na(getShortMatrix)){
	stop("getShortMatrix not na!")
}
callback("setShortMatrix",list(getShortMatrix))
getShortMatrixAsList <- callback("getShortMatrixAsList")
if(!is.na(getShortMatrixAsList)){
	stop("getShortMatrixAsList not na!")
}
callback("setShortMatrixAsList",list(getShortMatrixAsList))

getStringVector <- callback("getStringVector")
if(!is.na(getStringVector)){
	stop("getStringVector not na!")
}
callback("setStringVector",list(getStringVector))
getStringVectorAsList <- callback("getStringVectorAsList")
if(!is.na(getStringVectorAsList)){
	stop("getStringVectorAsList not na!")
}
callback("setStringVectorAsList",list(getStringVectorAsList))
getStringMatrix <- callback("getStringMatrix")
if(!is.na(getStringMatrix)){
	stop("getStringMatrix not na!")
}
callback("setStringMatrix",list(getStringMatrix))
getStringMatrixAsList <- callback("getStringMatrixAsList")
if(!is.na(getStringMatrixAsList)){
	stop("getStringMatrixAsList not na!")
}
callback("setStringMatrixAsList",list(getStringMatrixAsList))
